home *** CD-ROM | disk | FTP | other *** search
/ Know Your Baseball - The Greatest Player Resource / Know Your Baseball - Greatest Player.iso / Baseball / Director / SHARED.CST / 00008_Script_Menu Banner-Flags < prev    next >
Text File  |  1998-09-21  |  2KB  |  87 lines
  1. global gControls, gClicked,gButtonStatus,gPlayerFlag,SndFlag1,gStopFlag
  2.  
  3. -- flag scripts for flags other than home
  4.  
  5. on HomeR
  6.   puppetsound 0
  7.   CleanRoutine
  8.   go frame "1SSQR" of  Movie  "home"
  9.   MsetHomeMenu(gcontrols)
  10.   dontpassevent
  11. end
  12.  
  13. on HomeY
  14.   puppetsound 0
  15.   CleanRoutine
  16.   go  frame "1SSQY" of  Movie  "home"
  17.   MsetDilbert(gcontrols)
  18.   dontpassevent
  19. end
  20.  
  21. -- script for announcer and coach buttons in Menu Banner in SSQ movies
  22.  
  23. on SoundButtons 
  24.   if gPlayerFlag >0 then
  25.     puppetsound 0
  26.     set gStopFlag = 1
  27.     if  the type of sprite 3 = 16 then
  28.       set the movierate of sprite 3= 0
  29.     end if
  30.     set gButtonStatus = gClicked 
  31.     if gclicked = 35 then mSoundPlayBack gControls,gPlayerFlag,2,sndFlag1
  32.     if gClicked = 37 then mSoundPlayBack gControls,gPlayerFlag,1,sndFlag1
  33.     updatestage
  34.     exit
  35.   else
  36.     PlayIntroSounds
  37.   end if
  38. end
  39.  
  40. -- play introsound if no player has been selected
  41.  
  42. on playIntroSounds
  43.   if gclicked = 35 then mSoundPlayBack gControls,2,1,1
  44.   if gClicked = 37 then mSoundPlayBack gControls,3,1,1
  45. end
  46.  
  47. on beyondMedia1
  48.   global CDPath
  49.   mGetBeyondSound(gcontrols),gclicked
  50.   set x = the result
  51.   sound playfile 2, CDPath &  "sounds/stories/" & x
  52. end
  53.  
  54. -- script for sounds in Beyond Movie
  55.  
  56. on BeyondMedia
  57.   puppetsound 0
  58.   set gbuttonstatus = gclicked
  59.   mSoundPlayBack(gControls),gclicked,1,1
  60. end
  61.  
  62. on BeyondMedia2
  63.   puppetsound 0
  64.   set gbuttonstatus = gclicked
  65.   mSoundPlayBack(gControls),gclicked,1,2
  66. end
  67.  
  68. on BeyondMedia3
  69.   puppetsound 0
  70.   set gbuttonstatus = gclicked
  71.   mSoundPlayBack(gControls),gclicked,1,3
  72. end
  73.  
  74.  
  75. on Home
  76.   go movie "Home"
  77. end
  78.  
  79.  
  80. on OutoHere
  81.   repeat with x = 1 to 48
  82.     set the visible of sprite x = 0
  83.   end repeat
  84.   updatestage
  85.   go Movie "Last"
  86. end 
  87.